home *** CD-ROM | disk | FTP | other *** search
/ PC Open 93 / PC Open 93 CD 2.bin / PDF / webdeveloper / lezione_4 / elencofoto2.asp < prev    next >
Encoding:
Text File  |  2003-12-09  |  1.9 KB  |  105 lines
  1. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
  2.  
  3. <html>
  4. <head>
  5.     <title>Le foto di Mario Rossi</title>
  6. </head>
  7.  
  8. <body>
  9.  
  10. <h1>Le mie foto preferite</h1>
  11.  
  12. Hai selezionato le foto che parlano di <%=request.QueryString("rfoto")%><br>
  13. <%
  14.  
  15. Const adOpenStatic = 3
  16. Const adLockReadOnly = 1
  17. Const adOpenForwardOnly = 0
  18.  
  19. Dim contatore
  20. Dim sql1,sql2
  21. Dim conn, rs
  22. Dim pagNum
  23. Dim pagSize
  24. Dim i,j
  25.  
  26.  
  27. pagSize = 2
  28.  
  29. Set conn = Server.CreateObject("ADODB.Connection")
  30. conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/foto2.mdb")
  31.  
  32. sql1 = "SELECT count(nome) AS contatore FROM Foto WHERE Titolo like '%" & request.QueryString("rfoto") & "%'"
  33. sql2 = "SELECT * FROM Foto WHERE Titolo like '%" & request.QueryString("rfoto") & "%' ORDER BY Data DESC "
  34.  
  35. Set rs = Server.CreateObject("ADODB.RecordSet")
  36. rs.Open sql1, conn, adOpenForwardOnly, adLockReadOnly
  37.  
  38. contatore = rs("contatore")
  39.  
  40. rs.Close()
  41.  
  42.  
  43. 'Estrae il numero di pagina
  44. pagNum = cint(request.QueryString("pag"))
  45. If pagNum = 0 Then pagNum = 1
  46.  
  47. 'Imposta la dimensione della pagina (il numero massimo di elementi da far comparire per ogni pagina)
  48. rs.PageSize = pagSize
  49.  
  50. rs.Open sql2, conn, adOpenStatic, adLockReadOnly
  51.  
  52. %>
  53.  
  54. Sono presenti <%=contatore%> foto che soddisfano i criteri di ricerca<br><br>
  55.  
  56. <%
  57.  
  58.  
  59. rs.AbsolutePage = pagNum
  60.  
  61. for i = 1 to pagSize
  62.  
  63.     if not rs.EOF Then
  64.  
  65.  
  66. %>
  67.  
  68. <li><a href="dettagliofoto.asp?nome=<%=rs("Nome")%>"><%=rs("Titolo")%>, scattata a <%=rs("Luogo")%></a></li>
  69.  
  70. <%
  71.         rs.movenext
  72.  
  73.     Else
  74.  
  75.         Exit For
  76.  
  77.     End If
  78.  
  79.  
  80. next
  81.  
  82. %>
  83.  
  84. <br><hr><br>
  85.  
  86. <div align="left">
  87. <% for j = 1 to rs.PageCount %>
  88.     <a href="<%=request.ServerVariables("PATH_INFO")%>?pag=<%=j%>"><%=j%></a>
  89. <% next %>
  90. </div>
  91.  
  92. <%
  93. rs.close
  94. set rs = nothing
  95. conn.close
  96. set conn = nothing
  97.  
  98. %>
  99.  
  100. </ul>
  101.  
  102. </body>
  103. </html>
  104.  
  105.